Function Test(a:Int,b:String,c:Int=EVENT_GADGETACTION)
	Repeat
		a:+1
		Print "A: "+a
	Until a = 4
EndFunction
